home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / LayoutWindows.edt < prev    next >
Text File  |  1995-02-28  |  567b  |  26 lines
  1. /* layout windows */
  2. OPTIONS RESULTS
  3.  
  4. 'Get' SCREENHEIGHT
  5. screenHeight=RESULT-11
  6. 'Get' SCREENWIDTH
  7. screenWidth=RESULT
  8. 'Get' WINDOWS
  9. numWindows=RESULT
  10. vw=numWindows
  11. IF numWindows > 4 THEN  vw=2
  12. IF numWindows > 9 THEN  vw=3
  13. IF numWindows > 16 THEN vw=4
  14. IF numWindows > 25 THEN vw=5
  15. windowHeight=screenHeight%vw
  16. windowWidth=screenWidth%((numWindows+vw-1)%vw)
  17. 'Get' WINDOWID
  18. thisWindow=RESULT
  19. 'FirstWindow'
  20. DO i=0 TO numWindows-1
  21.   'SetWindowBox' i%vw*windowWidth i//vw*windowHeight+14 windowWidth windowHeight
  22.   'NextWindow'
  23. END
  24. 'SelectWindow' thisWindow
  25. 'WindowToFront'
  26.